﻿Public Class FichierPMT_Builer
    'Surcharger les méthodes de serialization
    Public Shared Function ReadXml(reader As Xml.XmlReader) As IFichierPMT
        'Réccupération des caractéristiques du fichierPMT
        Dim result As IFichierPMT
        Dim XmlFichierSerialization As XElement = XElement.Load(reader)
        'Récupérer le nom complet du répertoire
        Dim FullName As String = XmlFichierSerialization.<FichierPMT>.<FullName>.FirstOrDefault.Value
        If FullName = "-" Then
            result = New FichierPMT_NonRenseigne
        Else
            result = New FichierPMT(FullName)
        End If
        'Faire des tests pour voir si des changements ont été opérés sur Result depuis la dernière sauvegarde
        Return result
    End Function
End Class
